home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha Extra 2004 January / CyberMycha Extra 1-2004 (Poland) (Disc 2).bin / Pippi / gmfg.dir / Internal_38_eatingShitSpitting.ls < prev    next >
Encoding:
Text File  |  2001-09-03  |  1.3 KB  |  47 lines
  1. property responsDone, responsTime, pauseForSound
  2. global autoMoveObject, gmObject, sndObject
  3.  
  4. on beginSprite me
  5.   pauseForSound = 0
  6.   responsDone = 0
  7.   responsTime = sprite(me.spriteNum).member.frameCount - (sprite(me.spriteNum).member.frameCount / 4)
  8. end
  9.  
  10. on exitFrame me
  11.   if responsDone = 0 then
  12.     if the mouseDown = 0 then
  13.       if sprite(me.spriteNum).frame > responsTime then
  14.         sndObject.respondSnd(2, 2, 1, 1)
  15.         responsDone = 1
  16.       end if
  17.     end if
  18.   end if
  19.   if sprite(me.spriteNum).playing = 0 then
  20.     if (pauseForSound = 1) and (soundBusy(2) = 0) then
  21.       sprite(me.spriteNum).play()
  22.       pauseForSound = 0
  23.     else
  24.       if pauseForSound = 0 then
  25.         gmObject.goBack()
  26.       end if
  27.     end if
  28.   else
  29.     if sprite(me.spriteNum).frame = 11 then
  30.       if gmObject.soundThing <> 0 then
  31.         sprite(me.spriteNum).frame = 12
  32.         sprite(me.spriteNum).stop()
  33.         sound(2).play(member(gmObject.soundThing, 1))
  34.         pauseForSound = 1
  35.       end if
  36.     else
  37.       if sprite(me.spriteNum).frame = 32 then
  38.         sprite(me.spriteNum).frame = 33
  39.         sprite(me.spriteNum).stop()
  40.         sprite(gmObject.lastThingEaten).loc = gmObject.mouthLoc + point(0, 20)
  41.         autoMove(autoMoveObject, sprite(gmObject.lastThingEaten), point(408, 7))
  42.         sprite(me.spriteNum).play()
  43.       end if
  44.     end if
  45.   end if
  46. end
  47.